Imports Microsoft.VisualBasic

Public Class presupuestosubproyectoactividad
    Private _descripcion As String
    Private _id As Integer
    Private _cantidadHora As Integer
    Private _valorHoraHombre As Integer
    Private _factorHH As Integer
    Private _prioridadTarea As Integer
    Private _fksubProyecto As Integer
    Private _fkactividad As Integer
    Private _neto As Integer
    Private _iva As Integer
    Private _totalcobrar As Integer

    Public Sub New(ByVal descripcion As String, ByVal id As Integer, ByVal cantidadHora As Integer, ByVal valorHoraHombre As Integer, _
                        ByVal factorHH As Integer, ByVal prioridadTarea As Integer, ByVal fksubProyecto As Integer, ByVal fkactividad As Integer, _
                        ByVal neto As Integer, ByVal iva As Integer, Optional ByVal totalcobrar As Integer = 0)

        _descripcion = descripcion
        _id = id
        _cantidadHora = cantidadHora
        _valorHoraHombre = valorHoraHombre
        _factorHH = factorHH
        _prioridadTarea = prioridadTarea
        _fksubProyecto = fksubProyecto
        _fkactividad = fkactividad
        _neto = neto
        _iva = iva
        _totalcobrar = totalcobrar
    End Sub

    Property neto() As Integer
        Get
            Return _neto
        End Get
        Set(ByVal value As Integer)
            _neto = value
        End Set
    End Property

    Property totalcobrar() As Integer
        Get
            Return _totalcobrar
        End Get
        Set(ByVal value As Integer)
            _totalcobrar = value
        End Set
    End Property

    Property iva() As Integer
        Get
            Return _iva
        End Get
        Set(ByVal value As Integer)
            _iva = value
        End Set
    End Property

    Property descripcion() As String
        Get
            Return _descripcion
        End Get
        Set(ByVal value As String)
            _descripcion = value
        End Set
    End Property

    Property id() As Integer
        Get
            Return _id
        End Get
        Set(ByVal value As Integer)
            _id = value
        End Set
    End Property

    Property cantidadHora() As Integer
        Get
            Return _cantidadHora
        End Get
        Set(ByVal value As Integer)
            _cantidadHora = value
        End Set
    End Property

    Property valorHoraHombre() As Integer
        Get
            Return _valorHoraHombre
        End Get
        Set(ByVal value As Integer)
            _valorHoraHombre = value
        End Set
    End Property

    Property factorHH() As Integer
        Get
            Return _factorHH
        End Get
        Set(ByVal value As Integer)
            _factorHH = value
        End Set
    End Property

    Property prioridadTarea() As Integer
        Get
            Return _prioridadTarea
        End Get
        Set(ByVal value As Integer)
            _prioridadTarea = value
        End Set
    End Property

    Property fksubProyecto() As Integer
        Get
            Return _fksubProyecto
        End Get
        Set(ByVal value As Integer)
            _fksubProyecto = value
        End Set
    End Property

    Property fkactividad() As Integer
        Get
            Return _fkactividad
        End Get
        Set(ByVal value As Integer)
            _fkactividad = value
        End Set
    End Property
End Class
